function OutputParam=SubFun_SteadyState_OutputParam(InputParam)

PP          =   Setup_PP(InputParam);
PP.InfoPrint=   1;
%% Steady State
PSI_0       =   1;
FracHN_w_0  =   1;
FracHN_wN_0 =   PP.ExoState.Idio_RI.InvDist(2)/PP.ExoState.Idio_RI.InvDist(1);
DiscFactor_0=   0.02;
try
    SS          =   SteadyState_Solver(PP,PSI_0,FracHN_w_0,DiscFactor_0,FracHN_wN_0);
    OutputParam =   InputParam;
    OutputParam.Prob_H  ...
                =   SS.N_H/(SS.N_H+SS.N_N);
catch
    OutputParam =   [];
end

